class ckUser	public property username as string	public property fullname as string	public property state as integer	public sub EnableAccount()		me.state = true	end sub		public sub DisableAccount()		me.state = false	end sub	end classclass ckAdminUser	extends ckUser	public property isRoot as integer	public sub ckAdminUser()		me.isRoot = false	end subend classclass ckClassroomAdmin	extends ckAdminUser	public property course as string	public sub ckClassroomAdmin()		//We explicitly call the constructor of ckAdmin 		//user since it will not be called automatically				me.ckAdminUser()	end subend class//This example is just like 05, but this time we show//How to call the constructor to initialize other objects//in the inheritance chain.sub createuserAccount(user as ckUser)	beep	msgbox("Account for " & user.Fullname & " is ready.")end sub
sub main()   	dim MyClassUser as ckClassroomAdmin	dim AnyUser as ckUser	AnyUser = new ckUser	MyClassUser = new ckClassroomAdmin			MyClassUser.course = "MATE3022"	MyClassUser.username = "jose"	MyClassUser.fullname = "Jose L. Cuevas"	MyClassUser.enableAccount()		if MyClassUser.state = true then		msgbox("Account for " & MyClassUser.Fullname & " is enabled.")	else		msgbox("Account for " & MyClassUser.Fullname & " is disabled.")	end if			AnyUser = MyClassUser	createuserAccount(AnyUser)end sub